出處:http://www.kdnuggets.com/2015/05/r-vs-python-meetup-report.html
2015年5月23日
出處:http://www.kdnuggets.com/2015/05/r-vs-python-meetup-report.html
資料來源:http://www.r-bloggers.com/milestone-6000-packages-on-cran/
# 抓資料
library(DataTaipei)
rs <- dataSetMetadataSearch(q = "公廁")
data <- resourceAquire(getResources(rs, 1)$resourceId)
# 畫圖
library(ggmap)
qmap("台北火車站", zoom = 16,legend = "topleft") +
geom_point(aes(x = lng, y = lat), colour = "blue", data = data)
# 抓資料
library(DataTaipei)
rs <- dataSetMetadataSearch(q = "youbike")
data <- resourceAquire(getResources(rs, 1)$resourceId)
# 整理資料
library(dplyr)
data <- dplyr::mutate(data, lat = as.numeric(lat), lng = as.numeric(lng))
# 畫圖
library(ggmap)
qmap("台北火車站", zoom = 15,legend = "topleft") +
geom_point(aes(x = lng, y = lat, size = bemp), colour = "blue", data = data)